EEEEEEEEEEEEEEE MMM MMM =UUU UUU LLL AAAAAAAAA TTTTTTTTITTTTTITT 
EEEEEEEEEEEEEEE MMM MMM = UUU UUU LLL AAAAAAAAA TTTTTTTTTTTTIITT 
EEEEEEEEEEEEEEE MMM MMM = =UUU UUU LLL ARAAARABDA TTTTTTTTTITTTITT 
EEE MMMMMM = =OMMMMMM =(UUU YUU LLL AAA AAA TTT 
EEE MAMMMM = =6MMMMM = =6UUU UUU LLL AAA AAA TTT 
EEE MAMMMM =6MMMMMM =6UUU UUU LLL AAA ABA TTT 
EEE MAM 6 OMA OM UUU LLL AAA Aan TTT 
EEE MAM OMA OMMM (UU UUU LLL AAA TTT 
EEE MAM 6 6OMMM OMMM (UU UUU LLL AAA AMA TTT 
EEEEEEEEEEEE MMM MMM = =UUU YUU LLL ABA hae TTT 
EEEEEEEEEEEE MMM MMM UUU LLL AAA AAA TTT 
EEEEEEEEEEEE MMM MMM = UUU UUU LLL TTT 
EEE MMM MAM = UUU UUU LLL AAAAAAAAAAAAAAA TTT 
EEE MMM MMM = =UUU UUU LLL AAAA TTT 
EEE MMM MMM = UUU UUU LLL ADAAAAAAAAAAAAA TTT 
EEE MMM MMM UUU LLL AA TTT 
EEE MMM MMM = UUU UUU LLL AAA ABA TTT 
EEE MMM MMM = UUU UUU LLL AAA AAA TTT 
EEEEEEEEEEEEEEE MMM MMM UUUUUUUUUUUUUUU  LLLLLLLLLLLLLLL AAA AAA TTT 
EEEEEEEEEEEEEEE MMM MMM UUUUUUUUUUUUUUU LLLLLLLLLLLLLLL AAA AAA TTT 
EEEEEEEEEEEEEEE MMM MMM = UUUUUUUUUUUUUUU  LLLLLLLLLLLLLLL AAA ABR TTT 
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(¢ 89 
(3) 14 
(4) 1 
(7) $ 
(8) 
(11) 1152 


G 12 
Subset Instruction Emulation for VMB and 16-SEP-1984 01:38:27 VAX/VMS Macro v04-00 Page 0 


sous Notes 


n 
I0N 
" seneuhis Parameters 
3 = Compare Characters (3 Operand) 
= Compare Characters (5 Operand) 
= Locate Character 


OOo a 


' 
eee 


H 12 
Subset Instruction Emulation for ey and 18- 


00000001 0000 1 BOOT_SWITCH = 1 


SEP- 
MAY= 


1983 9:38:86 


AX/VMS Macro V04-00 
EMULAT.SRCJBOOTSWT.MAR; 1 


Page 


; Include bootstrap emulation subset 


1 
(1) 


$3 


I 12 
BOOSSTRING Subset Instruction Emulation for VMB and 16-SEP-19 :3 AX/VMS M v04-00 P 
v04-001 : . mitt} tt +8: i EMULAT. SRCIVAXSTRING.MAR; 2 ih (9) 


PARARAAAAAARAAAAAAAASAALALLLE ALE SALAS EASES SEE ESE RE RES ESE EERE TEESE EERE SSSR GY 


| 
CONDITIONA | 
oonrerniye Subset Instruction Emulation for VMB and SYSBOOT 
/vV04-001/ 


COPYRIGHT (s) 1978 
DIGIT TAL PRENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS” RESE 


SOFTWARE IS aie eee A_ LICENSE AND MAY BE USED AND soruee 
IN 4 GF THE Ae wate THE Nba cn SUCH LICENSE AND dy HE 


S_ SOF TWARE 
ES THEREOF _ NOT BE P ROVIDED OR “OTHER WISE MADE AVAILABLE TO ANY 
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THE gore IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
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CORPORATION. 
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00 
00 DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
4 SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

| 
4 PARRRBABAASAASLALALALALASALALAASLALESSASASAEESASALASEEESESEELELESEESESE ELSES ELSE ES 
00 
0 
0 :++ 
3 ; Facility: 
; VAX-11 Instruction Emulator 
0 ; Abstract: 


The routines in this module emulate the VAX-11 string instructions. 
These procedures can be a part of an emulator package or can be 
called directly after the input parameters have been loaded into 
the architectural registers. 


SLOVO LLOLSLS SSO 


Cooooo 
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The input parameters to these routines are the registers that 
: contain the intermediate instruction state. 
Environment: 


These routines run at any access mode, at any IPL, and are AST 
reentrant. 


; Author: 

Lawrence J. Kenah 
; Creation Date: 

16 August 1982 
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¢ Modified by: 
v04-001 xcs Lawrence J. Kena Ps +4 1984 


e backup code for MOVTC when movin n the. forward direction 
aise needs to be changed (see LJK0039) Stel on the relative 
sizes of the source and destination strings. 
v01-005 et M0107 Kathleen D. Morse ren 1984 | 
Fix bug in CMPC3. Return C clear if string tangth is 0. 
¥91-004 Lyk0039 Lawrence J. Kenah 20-Jul-1984 


Moti fy MOVTC backup code to reflect differences in register 
contents when traversi ng strings backwards. There are two 
cases based on the relative sizes of source and destination. | 


v01-003 byk0026 Lawrence J. Kenah 19-Mar-1984 
Final ceemye pass. ty violation handler is now called 
STRING ACCVIO. Set PACK_M ACCVIO bit in R1 before passing 
control to VAXS$SREFLECT_FAOLT. 


v01-002 LJK0011 Lawrence J. Kenah 88-Nov-1983 
Fix three minor bugs in MOVTC and MOVTUC. Change exception 
Lonel ies to reflect chenged implementation. 


V01-001 Original Lawrence J. Kenah 16-Aug-1982 
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Miscellaneous Notes SEP-19 
» SUBTITLE Miscellaneous Notes 


The following notes apply to most or all of the routines that appear in 
this module. The comments appear here to avoid duplication in each routine. 


The VAX Architecture Standard (DEC STD 032) is the ultimate authority on 
the functional behavior of these routines. A Suneery of each instruction 
ee RL et ty appears in the Functional Description section of each 
routine header. 


+ 


— 
2 


~m 
° 


One design goal that affects the algorithms used is that these instructions 
can sheer exceptions such as access violations that will be reported to 
users in such a way that the exception appears to have originated at the 
site of the reserved instruction rather than within the emulator. This 
constraint affects the algorithms available and dictates specific 
implementation decisions. 


Ww 
2 


Each routine header contains a picture of the register usage when it is 
necessary to store the intermediate state of an instruction (routine) while 
servicing an exception. 


The delta-PC field is used by the condition handler jacket to these 

routines when it determines that an exception such as an access violation 

occurred in response to an explicit use of one of the reserved 

instructions. These routines can also be called directly with the input 

a haga benttg correctly placed in registers. The delta-PC field is not used in 
Ss case. 


Note that the input parameters to any ;outine are a sutset of the 
intermediate state picture. 


Fields that are not used either as input parameters or to store 
intermediate state are indicated thus, XXXXX. 


=> 
. 


In the Input Parameter List for each routine, certain register fields that 
are not used may be explicitly Listed for one reason or another. These 
unused input parameters are described as IRRELEVANT. 


wn 
s 


In general, the final condition code settings are determined as the sine 
effect of one of the last instructions that executes before control is | 
passed back to the caller with an RSB. It is seldom necessary tc explicitly 
manipulate condition codes with a BIxPSW instruction or similar means. 


o 
o 


There is only a small set of exceptions that are reflected to the user in an 
altered fashion, with the exception PC changed from within the emulator to 
the site of the original entry into these routines. The instructions that 
generate these exceptions are all immediately preceded by a 


MARK _POINT yyyy_N 


where YYYY is the instruction name and N is a small integer. These names 
map directly into instruction=- and context-specific routines (located at 
the end of this module) that put each instruction (routine) into a 
consistent state before passing control to a more general exception handler 
in a different module. 


PAN 9 OO NA NE WIN 9 OD NAME WIN 9 OD NOAU EWN OO OO NAUES WO OONOAUS W000 
Tere Tere Te Ieee rere re rere rere rere rere rerere rere rererererererere rere rererererve re rire rire reir 


BEEF EWI NIWIWIWIWIMIWIERINPINIPINININININ 2 9 SS OOO DOOOOOCOCOOOOOOO-00000 


aaa aa a a at at at 4 s&s ts as Ss 1 


EP=1984 17: 5 CEMULAT.SRCIJVAXSTRING.MAR; 2 


6 138 » SUBTITLE DECLARATIONS 

| ; Include files: 

° 139 SPSLDEF ; Define bit fields in PSL 

60 13 »NOCROSS 3; No cross reference for these 
4 137 . ENABLE SUPPRESSION ; No symbol table entries either 
4 132 PACK_DEF ; Stack usage for exception handling 
8 133 DISABLE SUPPRESSION ; Turn on symbol table again 
+4 138 - CROSS ; Cross reference is OK now 
000 160 ; Macro Definitions 

4 161 

00 166 ~MACRO INCLUDE OPCODE BOOT_FLAG 

0000 16 wIF NOT DEFINED BOOT_SWiTCH 

0000 164 OPCODE '_DEF 

0000 165 INCLUDE_"OPCODE = 0 

0000 166 - IF FALSE 

0000 167 IF IDENTICAL <BOOT_FLAG> , BOOT 

0000 168 OPCODE' _DEF 

0000 169 INCLUDE_"OPCODE = 0 

0000 170 -ENDC 

0000 171 -ENDC 

0000 \7¢ -ENDM _INCLUDE 

0000 17 

0000 174 ; External declarations 

0000 175 

0000 176 - DISABLE GLOBAL 

0000 177 

0000 181 

0000 136 ; PSECT Declarations: 

0000 +=+18 

444 13 - DEFAULT DISPLACEMENT , WORD 

ang? 186 -PSECT _VAXSCODE PIC, USR, CON, REL, LCL, SHR, EXE, RD, NOWRT, LONG 

0000 188 BEGIN_MARK_POINT ; Set up exception mark points 
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Conditional Assembly Parameters 


Page 


- SUBTITLE 


Functional Description: 


It is possible to Greete a subset emulator, one that emulates 
specific reserved instructions. This capability is currently exploited 
to create a subset emulator for use by the bootstrap programs. 


An instruction is included in the full emulator by making an entry 
in the 2 gg table. If the optional second pecencter is present 
and equal to BOOT, then that instruction is included in the subset 
emulator used by the bootstrap code. 


-NOCROSS 3; No cross reference for these 
- ENABLE SUPPRESSION ; No symbol table entries either 
INCLUDE MOVTC 

INCLUDE eee 

INCLUDE CMPCS , BOOT 

_ INCLUDE CMPCS , BOOT 

INCLUDE SCANC 

_ INCLUDE SPANC 

INCLUDE LOCC , BOOT 

INCLUDE SKPC 

_ INCLUDE MATCHC 

INCLUDE CRC 

DISABLE SUPPRESSION ; Turn on symbol table again 
CROSS ; Cross reference is OK now 
.»NOSHOW CONDITIONALS 


VAX 


str Tab 


BOOSSTRING Subset In 
vOe-001 VAXSCMPCS 
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- SUBTITLE VAXSCMPC3 = Compare Characters (3 Operand) 


) 


: Functional Description: 
The bytes of string 1 specified by ar Lengsh and address 1 operands are 
9 


uc 
Co 
683 
684 
685 
d with the byt f i ified by the | h and add 
ompared w eS es of strin specifie the length and address 
0 689 § operands. Comparison proceeds until’ Inequality is detested or all the 
0 690 bytes of the strings have been examined. Condition codes are affected 
0 691 by the result of the last byte comparison. Two zero length strings 
8 $36 compare equal (i.e. 2Z is set and N, V, and C are cleared). 
o3e Input Parameters: 
$38 + tala . len Length of character strings 
eos R3 = srcdaddr Address of second character string (called $2) 
£0 Intermediate State: 
0 7 
0 188 wo eeeceeeeaoaeees 2 eeeeeenaeaooes 403 ee ee 07 sn amas mr ama a = 00 
0 704 H delta-PC H XXXX ' len + : RO 
0 705 men mee meneame $eee ewe meen een een ant mmo wmen anne mn cena teem maemo nenooce + 
0 06 ' srcladdr + : RI 
0 Pmon ce menr ne ne mrawe foes e nea an ee eee we bw ee om oa een ae en es + 
0 H XXXXX : : R2 
0 beweoceoenr asec ee nem $e mm mermemneroenmn—- = wee ewe eee ee ee ee deem ree eee mene eee + 
0 ' srcdaddr ; : R3 
$e een enn secon ec cen pee ee em oo be wm meee ee ee + 


Output Parameters: 
Strings are IDENTICAL 


RO = 0 

R1 = Address of one byte beyond end of $1 
R2 = 0 (same as RO) 

R1 = Address of one byte beyond end of S2 


Strings DO NOT MATCH 


RO = Number of bytes left in strings (including first byte 


| 

} 

| 
srcladdr Address of first character string (called $1) 
at that did not match) | 
R | 
RS 


Address of nonmatching byte in S1 


Address of nonmatching byte in S2 
Condition Codes: 
In general, the condition codes reflect whether or not the strings | 
are considered the same or different. In the case of different | 
strings, the condition codes reflect the result of the comparison 
that indicated that the strings are not equal. 
Strings are IDENTICAL 


N <- 0 


SOCOCSCOSOOOOOSOSOOSOOSSOOSOSSOSSOSSOSOSOSOOSOSOOOOOOOOOOCOOCOOCOOOOOOOOOOO 


SOoOoooooooooooooQoooooooooooooo 
SOSOSCSSOSOSOSOSOSOSSOOOOSOSOSOSOOSSSOSOSSSOSOSOSOSOSOSOSOSOOOOOOOOO OOOO OOOOOCOO 


SOOOCOSOCOOOOOSOCOSOSOSSOSSOSOSSOSOOCSOOSOOOSOOOCOCOSO OOOO OOO OOOO OOOOOO 
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0 740 ; 2 <- 1 ; (byte in $1) EQL (byte i ) | 
009 rai c yte in EQL (byte in S2 | 
000 748 | 
0000 eee ; Strings DO NOT MATCH 
000 746; N <= (byte in $1) LSS (byte in $2) 
0000 747 1<- 0” (byte in $1) NEQ (byte in $2) 
4 748 ; V <- 0 
4 ree ; C <= (byte in $1) LSSU (byte in $2) 
44 fl ; where ‘byte in $1°' or "‘byte in S2°' may indicate the fill character 
0000 fag ; Side Effects: 
0000 754; 
0000 755 ; This routine uses one longword of stack. 
0000 756 ;:- 
0000 757 
0000 £38 VAXSCMPC3:: 
50 50 3¢ 0000 75 MOVZWL RO,RO ; Clear unused bits & check for zero 
0d 13 Op0e 769 BEQL 20$ ; Simply return if zero length string | 
5A dD 0005 £6¢ PUSHL R10 ; Save R10 so it can hold handler 
0007 76 ESTABLISH_HANDLER - 
ate Ne: STRING_ACCVIO ; Store address of condition handler | 
0007 766 MARK_POINT CMPC3_1 
81 83 91 0007 767 10S: CMPB (R3)+,(R1)+ ; Character match? 
0B 12 QOOA 768 BNEQ ; Exit loop if different 
F850 =FS ets 188 SOBGTR RO,10$ 
sia 4A! ; Exit path for strings IDENTICAL (RO = 0, either on input or after loop) | 
5A 8E 00 OO00F og MOVL (SP)+,R10 ; Restore saved R10 | 
52 D4 «20012 «= 774 208: CLRL Re ; Set R2 for output value of 0 
50 05 0014 775 TSTL RO 3; Set condition codes 
05 Bais org RSB ; Return point for IDENTICAL strings 
pote ore ; Exit path when strings DO NOT MATCH | 
5A 8E 00 0017 780 30S: MOVL  (SP)+,R10 ; Restore saved R10 
36 50 DO QO1A 781 MOVL R ; RO and R2 are the same on exit | 
7 71 +91 0010 res CMPB ~(R1),-(R3) ; Reset R1 and R3 and set condition codes | 
05 0020 78 RSB ; Return point when strings DO NOT MATCH 
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SUBTITLE VAXSCMPC5 = Compare Characters (5 Operand) 
Functional Description: 


The bytes of the ts 1 specified by the Length 1 and addre 
eo are compar 

length 2 and address 2 operands. If 
longer by ageenenye (at 
operand. omparison proceeds until inequalit 
bytes of the strings have been examined. 
by the result of the 
compare equal (i.e. 2Z is set and N, V, and C are cleared). 


gher addresses) b ag — to the 
3 


Input Parameters: 


one string is longer than 
other, the shorter etevng ts conceptually extended to the length of ser 
etected or all the 
ondition codes are affected 
last byte comparison. Two zero Length strings 


Page 


with the bytes of the string 2 specified by oe 
e 


RO<15:0> = Len Length of first character string (called $1) 
RO<23:16> = fill Fill character that is used when strings have 
different lengths 
R1 = addr Address of first character string 
R2<15:0> = Len Length of second character string (called $2) 
R3 = addr Address of second character string 
Intermediate State: 
31 23 15 07 00 
pes rm entree werner ee parame e ee cow eoew power eee meme cen we ors + 
H delta-PC H fill H srcilen t : RO 
en oo ee rs 
i srcladdr : 2 RI 
pmamane esr see aamocaae pomemanr nesses esc enee twee ene eee eee nee eos oo 
H XXXXX H src2len + : R2 
fer wow eer essen oe mae Pewee nen em emo ee Pose eae see sees eue wooo eoeoeeoooesos + 
H src2addr | : R3 
er veer e ees ese ee eens peewee enero nme bi me + 


Output Parameters: 
Strings are IDENTICAL 


RO = 0 

Ri = Address of one byte beyond end of $1 
R2 = 0 (same as RO) 

R1 = Address of one byte beyond end of $2 


Strings DO NOT MATCH 


RO = Number of bytes fineintey in $1 when mismatch detected 
(or zero if S1 exhausted before mismatch detected) 

Ri = Address of nonmatching byte in S$ 

R2 = Number of bytes ceneining in $2 when mismatch detected 
(or zero if S2 exhausted before mismatch detected) 

R3 = Address of nonmatching byte in S2 


Condition Codes: 
In general, the condition codes reflect whether or not the strings 


9 
(8) 


VAX 
v04 
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8 1 44 ; are considered the same or different. In the case of different 
1 45 ; strings, the condition codes reflect the result of the comparison 
: : " : that indicated that the strings are not equal. 
021 848: Strings are IDENTICA 
0051 849: ns : ; 
$05] Bet 77 (byte in $1) EQL (byte in $2) 
° - ; t t 
$05} 5¢ v <= 0 gon dyin 
8 1 53 3 C <- 
021 54 ; 
8 ! 2? : Strings DO NOT MATCH 
0021 857: N <= (byte in $1) LSS (byte in $2) 
0021 58 ; Z <- 0 ‘ : (byte in $1) NEQ (byte in $2) 
0021 59 ; V <= 0 
8 : rs ; C <= (byte in $1) LSSU (byte in $2) 
8 : bee : where ‘'byte in S1"’ or ‘‘byte in S2°' may indicate the fill character 
0021 864 : Side Effects: 
0021 ee ; ; 
0021 66 ; This routine uses two longwords of stack. 
0021 867 ;- 
0021 868 
0021 869 .ENABLE LOCAL_BLOCK 
0021 870 
Oost 871 VAXSCMPCS:: 
5A DD 0021 Hh PUSHL R10 ; Save R10 so it can hold handler 
0023 87 ESTABLISH_HANDLER = 
0023 874 STRING_ACCVIO ; Store address of condition handler 
54 DD 0023 875 PUSHL ; Save register 
54 50 FO 8F 78 0025 o78 ASH #-16,RO,R4 ; Get escape character 
50 50 3C O02A 77 MOVZWL RO,RO : Clear unused bits & is $1 Length zero? 
28 13 002D 878 BEaL ©: 50$ : Branch if yes 
a ae et 879 MOVZWL R2,R2 ; Clear unused bits & is S2 length zero? 
14 «13 0032 880 BEQL §©=_-30$ 
0034 ae¢ ; Main loop. The following loop executes when both strings have characters 
Bate HY 3 remaining and inequality has not yet been detected. 
0034 885 ; THE FOLLOWING LOOP IS A TARGET FOR FURTHER OPTIMIZATION IN THAT THE 
0034 886 ; LOOP SHOULD NOT REQUIRE TWO SOBGTR INSTRUCTIONS. NOTE, THOUGH, THAT 
OO ff ; THE CURRENT UNOPTIMIZED LOOP IS EASIER TO BACK UP. 
Ope 89 MARK_POINT MPC5_1 
83 81 91 83 4 90 10$: CMPB (R1)+,(R3)+ ; Characters match? 
32 ig 037 91 BNEQ 3; Exit loop if bytes different 
09 50 «OF 3 , 3 SOBGTR RO,20$ ; Check for $1 exhausted 
bat 3¢ 3; The next test determines whether S2 is also exhausted. 
52.7? tH 36 DECL Re ; Put R2 in step with RO 
ieee +43 2 BNEQ 608 ; Branch if bytes remaining in S2 
bed 35 ; This is ghe exit path for identical strings. If we get here, then both 
04 00 ; RO and R2 are zero. The condition codes are correctly set (by the ASHL 
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4 30) ; instruction) so the registers are restored with a POPR to avoid changing 
rt 3 § ; the condition codes. 
4 904 IDENTICAL: 
0410 8F BA 40 905 POPR #*M<R4,R10> ; Restore saved registers 
05 of: O09 RSB ; Exit indicating IDENTICAL strings 
ec $2 fS a8 43 20$: SOBGTR R2,10$ ; Check for S2 exhausted 
004 910 ; The following loop is entered when all of S2 has been processed but 
Boe ai) ; there are characters remaining in $1. In other words, 
094 318 ; RO GTRU_O 
04 914; R2 EQL 0 
004 915 ; 
Bae 318 ; The remaining characters in $1 are compared to the fill character. 
$068 918 MARK_POINT CMPC5_2 
54 81 91 0048 919 308: CMPB (R1)+,R4 ; Characters match? 
05 12 0048 920 BNEQ 40$ ; Exit loop if no match 
F850 «FS paed 4 1 SOBGTR RO,30$ 3; Any more bytes in $1? 
EE 11 BRS 4 5 BRB IDENTICAL ; Exit indicating IDENTICAL strings 
54 71 91 0032 925 40S: CMPB -(R1),R4 ; Reset R1 and set condition codes 
7, «11 0055 3 : BRB NO_MATCH ; Exit indicating strings DO NOT MATCH 
0057 358 : The following code executes if S1 has zero Longeh on input. If S2 also 
bees 263 ; has zero length, the routine smply returns, indicating equal strings. 
52. 52 4 43C 0057 931 50S: MOVZWL R2,R2 ; Clear unused bits. Is S2 len also zero? 
E4 13 Fs 336 BEQL IDENTICAL 3; Exit indicating IDENTICAL strings 
005C 934 ; The following loop is entered when all of $1 has been processed but 
005C 935 ; there are characters remaining in $2. In other words, 
O0S5SC 936; 
005C 937; RO EQL 0 
005C 938; R2 GTRU 0 
005C 939; 
Opec Bey ; The remaining characters in S2 are compared to the fill character. 
05¢ oe MARK_POINT CMPCS_3 
83 54 91 O05C 943 60S: CMPB R4,(R3)+ ; Characters match? 
93 ig pat 944 BNEQ ; Exit loop if no metst 
F852 =«#*F $9 oe? SOBGTR R2,60$ ; Any more bytes in S2? 
DA 11 v4 $7 BRB IDENTICAL : Exit indicating IDENTICAL strings 
73. —54COC«@D*dS Bose 949 70$: CMPB R4,-(R3) ; Reset R3 and set condition codes 
os 61 ie 229 BRB NO_MATCH ; Exit indicating strings DO NOT MATCH 
S068 828 ; The following exit path is taken if both strings have characters 
re Be7 3 remaining and a character pair that did not match was detected. 
ma rm. Ss 6B 955 80S: CMPB -(R1),-(R3) ; Reset R1 and R3 and set condition codes 
6E 929 NO_MATCH: ; Restore R4 and R10 
0410 8F BA 6— 9 POPR #*M<R4,R10> 3 without changing condition codes 


* 
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sgt ae Characters (5 Operan /=S p= 1984 94: #4: $f YEMULAT eT AKSTRGNG. MAR; 2 — th 
” Bor $3 RSB ; Exit indicating strings DO NOT MATCH 
233 «DISABLE LOCAL BLOCK 


oc 
an 


ne ne nw wn we www w lo lolololeolololololo) 


Condition Codes: 


Side Effects: 
This routine uses two longwords of stack 


<= Bete Se Ge Ge Se Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Be Se Ge Fe Ge Ge Ge Ge Ge Se Be Ge Sse Ge Ge Se Se Se Se Ge Ge Fe Ge Fe Se Se Ge Sete Ge Se Se 
1 


“ 
Pa 


LJ 
o 
a a ed td = = = 8 = 2 8 2 8 2 2 a a rr 3 


po 
SOOOOOOOOSOSOSOOOSOOSOOOOOOSOOOSOOSOSOSOOOSOOSOSOSOSOOOOOOOOOOOOOOOOOOOO CO 
SOCOOCOCOCOCOOCOOOOOCOOSOSOOOOOOOOoOooSoOo 

Sn Be te tt tt te ee be ee ee ee ed 
DDNDWAAAA NINN AIA AIN AANA AAAI NIWINNININNAIANIAIN WAIN ANNONA NIAAA ANNAN 
ROPOPOPONONONININY) 2 2 te 
SODODOOOSO0O OOO WOOO 00 09 09 69 69 09 09 09 09 69 SINISE NN NPA AAAAAAOAUIMIMNIUIUIUIUIVA 
CONAUE WN OS OO NAME WN HO OD NAME WN OS OD NAUS WN MO OWONAU EWN 0 OONOUS UM 
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Functional Descri 
The charact 


bs detecte 


Parameters: 


Intermediate Stat 


Output Parameters 
Character F 


Character N 


- 0 
RO EQL 
- 0 


i 
i 


PUSHL R10 
ESTABLISH _H 
STRI 
R2 
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tion Emulation for VMB 
ate Character 


er operand is compared with the bytes of the strin 
Comparison continues unt 

have been compared. 
the condition code Z-bit is cleared; 


th and address operands. 


d; 


ound 


s clear if the character is located. 
s set if the character is NOT located. 


ANDLER 


AX/VMS Macro v04-00 
EMULAT.SRCJVAXSTRING.MAR;2 


VAX$LOCC = Locate Character 
ption: 


otherwise the Z-bit 


Length of character string 
Character to be located 
Address of character string 


Number of bytes remaining in the string (including located one) 
Address of the located byte 


OT Found 


Address of one byte beyond end of string 


; Save R10 so it can hold handler 


; Store address of condition handler 
; Save register 
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oo) sare Instruction Emulation for vMB and 16-SEP-1984 9: 3: gf AX/VMS Macro Vv04-00 Page 
v04-001 AX$LOC -$ 


—— 
— aS 


"7 
| 
C = Locate Character EP=1984 EMULAT.SRCJVAXSTRING.MAR; 2 ( | 
52 50 FO + 78 77 +1209 ASHL #-16,R0,R2 ; Get character to be located | 
50 0 7 7C 1210 MOVZWL 88 RO ; Clear unused bits & check for 0 Length 
08 1 4 } 1 BEQL 20$ ; Simply return if length is 0 | 
081 1 i MARK K POINT LOCcC_1 | 
nn Re 1 1214 108: CMPB™ (R1)+ ; Character match? | 
OA iB 4 1215 BEQL ; Exit loop if yes 
F850 «OF 3 ! 1g SOBGTR RO,10$ | 
8° 9 1 18 ; If we drop through the end of the Loop into the following code, then 
0 2 } Hs 3; the input string was exhausted with the character NOT found. | 
0404 8F BA 09 9 1221 208: POPR #*M<R2,R10> ; Restore saved R2 and R10 
50 05 008D 1 ¢ TSTL RO ; Insure that C-bit is clear 
05 444 } ? RSB ; Return with Z-bit set 
0090 ! : ; Exit path when character located 
51 D7 0090 1 5 30$: DECL R1 ; Point R1 to located character 
F5 11 0092 1228 BRB 20$ ; Join common code 


VAXSLOcC™= ‘Locate Character” (°" in on "Prep TGR FPF8:8S YERGUNT. SRESVaNStAING.man;2 "29° & 


np si END_MARK_POINT 
94 $4 
94 3170 ~END 


BOOT 
IDENT 
NO_MA 


OP$=C 


BOOSSTRING 
Symbol table 


TCH 


Swi 
ICAL 
TCH 


OP$_CVTLD 


VILF 


03 


cr< 
>= 
“mM 
a 4 
De 
an 
un 
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v04-00 Page 16 | 
AXSTRING.MAR; 2 (2 | 
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Symbol table “SEP=1984 17:15:25 CEMULAT.SRCJVAXSTRING.MAR;2 


o 

v 

bad 

ny 
st & 

=x 
nnnnnnnnnnnnnn 


oP 4 
VAXSCMPC3 
VAXSCMPC5S 
VAX$LOCC 


DDD 
aac 
ooo 
rrr 


Oe Emme nm oe $ 


PSECT name Allocation PSECT No. Attributes 


- ABS . 00000000 ( 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABS$ 00000000 <¢ Q.) O01 ¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
~VAXSCODE 00000094 (¢ 148.) 02 ¢ 2.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 


Se ce mne nomena nw mor oaaeans $ 


Phase Page faults CPU Time Elapsed Time 


Initialization 15 00:00:00. 00:00:01.22 
Command processing :00: 


Pass 

Symbol table sort 
Pass 2 

Symbol table output 16 
Psect synopsis output 2 


Cross-reference output 
Assembler run totals 599 


— 

o 

~m 
oooooooo 
Soooooo[oo 
oooooooo 
Oooooooeoo 
Coooooooo 
Coooooe[oo 
oooooooo 
—OOoCoo°oeoo 
Coooo-Oofo 
aooou—W1 
*eente#eeee# @ 
WOOfLVOWnwo 
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The working set Limit was 1500 pages. 

70465 bytes_(138 pages) of virtual memory were used to buffer the intermediate code. 

There were 30 pages of symbol table space allocated to hold 447 non-local and 14 local symbols. 
4923 source lines were read in Pass 1, producing 13 object records in Pass 2. 

145 pages of virtual memory were used to define 143 macros. 
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SEP=1 EMULAT.SR REV AXSTRING.MAR; 2 


owe ener scone Senna wa wee coe pe 


! Macro Library statistics ! 


Guavecesneneussnennesssnens} 


Macro Library name Macros defined 


Lee ee. 


“B52 28DUACE: EMULAT.OBJJVAXMACROS.MLB; 1 8 
“$255$DUA SYSLIBISTARLET. MLB;2 5 
TOTALS (all libraries) 13 


584 GETS were required to define 13 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:BOOSTRING/OBJ=0B8J$:BOOSTRING MSRC$:BOOTSWT/UPDATE=(ENHS$:BOOTSWT) +MSRC$:MISSING/UPDATE=(ENH$:MISSING) +MSRC$:VAXSTRING/ 
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